home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.0 / card_12654.txt < prev    next >
Text File  |  1989-02-26  |  1KB  |  58 lines
  1. -- card: 12654 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 13187
  5. -- name: ArrowKeys
  6. ----- HyperTalk script -----
  7. on arrowKey direction
  8.   if direction is "left" then put "That was left"
  9.   if direction is "right" then put "That was right"
  10.   if direction is "up" then put "That was up"
  11.   if direction is "down" then put "That was down"
  12. end arrowkey
  13.  
  14. on closecard
  15.   hide message window
  16. end closecard
  17.  
  18.  
  19.  
  20. -- part contents for background part 4
  21. ----- text -----
  22. 3
  23.  
  24. -- part contents for background part 3
  25. ----- text -----
  26. --
  27. -- ‚Ä¢‚Ä¢‚Ä¢From Steve Drazga 12/87‚Ä¢‚Ä¢‚Ä¢
  28. --
  29. -- To prevent the user from using a specific arrowkey replace "left"
  30. -- in the script with whatever key you want to disable.
  31. --
  32. on arrowKey direction
  33.   if direction is not "left" then pass arrowKey
  34. end arrowkey
  35.  
  36. --
  37. --To disable all the arrowkeys use:
  38. --
  39. on arrowKey direction
  40. end arrowkey
  41.  
  42. --
  43. -- To do something special when an arrowkey is selected, use:
  44. --
  45. on arrowkey direction
  46.   if direction is up then
  47.     --special instructions for up arrowkey go here.
  48.     --there can be more than one.
  49.   else
  50.     pass arrowkey  -- remember if you don't pass the arrowkey, they won't do anything!
  51.   end if
  52. end arrowkey
  53.  
  54.  
  55.  
  56. -- part contents for background part 2
  57. ----- text -----
  58. ArrowKeys